home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / tiny.demo 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  810 b   |  59 lines
  1. 10 ; hires plot demo fuer tinycompiler
  2. 20 ; funktion definieren:
  3. 30 ; ab zeile 63005 - z. 63010
  4. 40 ; skalierung: z. 63020
  5. 50 ; am ende taste druecken !
  6. 60000 poke53265,59
  7. 60010 poke53272,24
  8. 60011 letn=256
  9. 60012 letp=703
  10. 60013 letp=p+1
  11. 60014 ifn=1then60020
  12. 60015 letn=n/2
  13. 60016 pokep,n
  14. 60017 goto60013
  15. 60020 leti=1024
  16. 60030 pokei,1
  17. 60040 leti=i+1
  18. 60050 ifi<2024then60030
  19. 60060 leti=8192
  20. 60070 pokei,0
  21. 60075 leti=i+1
  22. 60080 ifi<16384then60070
  23. 60090 goto63000
  24. 61000 letw=y/8
  25. 61010 letv=x/8
  26. 61020 leth=w*40
  27. 61030 leth=h+v
  28. 61040 leth=h*8
  29. 61050 leth=h+8192
  30. 61060 letg=w*8
  31. 61070 letg=y-g
  32. 61080 letp=h+g
  33. 61100 ifp>16384then61170
  34. 61110 ifp<8192then61170
  35. 61115 letb=x/8
  36. 61120 letb=b*8
  37. 61130 letb=x-b
  38. 61140 letq=704+b
  39. 61150 letq=peek(q)
  40. 61160 pokep,q
  41. 61170 return
  42. 63000 letx=0
  43. 63001 ;
  44. 63005 lety=x*x
  45. 63010 lety=x+y
  46. 63015 ;             funktion: y=x^2 + x
  47. 63020 lety=y/200
  48. 63030 gosub61000
  49. 63040 letx=x+1
  50. 63050 ifx<320then63005
  51. 63900 letq=peek(203)
  52. 63905 letz=z+1
  53. 63908 poke53280,z
  54. 63910 ifq=64then63900
  55. 63940 poke53272,21
  56. 63950 poke53265,27
  57. 63960 print"[147]";
  58. 63999 end
  59.